home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ PowerArchiver MRU Cleaner.xpl < prev    next >
Text File  |  2001-01-21  |  2KB  |  67 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="5"
  3. "COUNT"="3"
  4. "UIPATH"="Program Options\Other Programs\PowerArchiver"
  5. "NAME"="Clear PowerArchiver Items"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Recently used files"
  9. "TEXT 2"="Recently extracted"
  10. "TEXT 3"="Recently used folders"
  11. "DESCRIPTION 1"="Close all PowerArchiver windows before using."
  12. "DESCRIPTION 2"="Click each button to clear recently used items lists."
  13. "DESCRIPTION 3"="It will clean also "extract to" folder lists."
  14. "AUTHOR"="Xteq Systems (CptSiskoX)"
  15. "COPYRIGHT"="Xteq Systems (CptSiskoX)"
  16. "COMMENT 1"="Get PowerArchiver http://www.powerarchiver.com/ the best freeware compression program."
  17.  
  18. sP1="HKEY_CURRENT_USER\Software\PowerArchiver\Files\Active_File"
  19. sP2="HKEY_CURRENT_USER\Software\PowerArchiver\Files\Extract"
  20. sP3="HKEY_CURRENT_USER\Software\PowerArchiver\Files\SelDir"
  21.  
  22. SUB Plugin_Initialize
  23. END SUB
  24.  
  25. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  26.     Select Case ElementIndex
  27.  
  28.           Case 1 'recently used files         
  29.           i=1
  30.           for i=1 to 99 
  31.               sValue=sP1 & CStr(i)
  32.               if RegValueExists(sValue) then 
  33.                  Call RegDeleteValue(sValue)
  34.               end if
  35.           next
  36.  
  37.  
  38.  
  39.           Case 2 'recently extracted
  40.           i=1
  41.           for i=1 to 99 
  42.               sValue=sP2 & CStr(i)
  43.               if RegValueExists(sValue) then 
  44.                  Call RegDeleteValue(sValue)
  45.               end if
  46.           next
  47.  
  48.  
  49.  
  50.           Case 3 'recently used dirs
  51.           i=1
  52.           for i=1 to 99 
  53.               sValue=sP3 & CStr(i)
  54.               if RegValueExists(sValue) then 
  55.                  Call RegDeleteValue(sValue)
  56.               end if
  57.           next
  58.  
  59.     end Select
  60.  
  61.  
  62.     Call MsgInformation("Wiped")
  63. END SUB
  64.  
  65. SUB Plugin_Terminate
  66. END SUB
  67.